home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / default setup (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  114 lines
  1. 1 rem default setup
  2. 6 j=56320:poke53280,5:poke53281,13:print"[144]"
  3. 10 rem color select
  4. 20 gosub 10000 : rem current setup
  5. 30 print"[147][144]"
  6. 32 print" [200]ere you can set the defaults for the"
  7. 34 print"[205][213][211][201][195] and the [195][207][204][207][210]/[194][204][193][195][203] & [215][200][201][212][197] flags."
  8. 36 :
  9. 38 mu$="on ":print"<[205]>usic          :";:ifmu=0thenmu$="off"
  10. 39 printmu$
  11. 40 sd$="color        ":print"<[211]>creen [196]isplay :";
  12. 41 ifsd=0thensd$="black & white"
  13. 42 printsd$
  14. 43 :
  15. 44 print"  [208]ress <[205]> to toggle [205][213][211][201][195]"
  16. 45 print"  [208]ress <[211]> to toggle [211][195][210][197][197][206] [196][201][211][208][204][193][217]"
  17. 46 print"  [208]ress <_> to [211][193][214][197] defaults"
  18. 47 print"  [208]ress <[209]> to [209][213][201][212]"
  19. 50 poke198,0:wait198,1:geta$
  20. 52 ifa$="m"thenmu=not(mu):goto30
  21. 54 ifa$="s"thensd=not(sd):goto30
  22. 56 ifa$="q"thengosub20000:goto20
  23. 57 ifa$="_"then90
  24. 60 goto30
  25. 70 :
  26. 90 gosub 12000 : rem are these ok
  27. 92 ifnot(ok)then30
  28. 94 :
  29. 100 gosub 15000: rem current side
  30. 102 sb=si      : rem side booted
  31. 105 ns=2       : rem number of sides
  32. 110 cs=1
  33. 120 gosub13000 : rem write data to file
  34. 130 cs=cs+1    : rem on side cs
  35. 140 ifcs<=nsthen120
  36. 150 :
  37. 160 goto14000 : rem put side sb in
  38. 200 :
  39. 10000 rem get current setup
  40. 10010 open15,8,15,"i0"
  41. 10020 open3,8,4,"setup"
  42. 10030 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  43. 10040 mu=val(d$(6))
  44. 10042 sd=val(d$(7))
  45. 10046 close3:close15
  46. 10050 return
  47. 10060 :
  48. 11250 :
  49. 12000 rem these ok
  50. 12005 :
  51. 12010 print"[147]"spc(7)"[205]usic : "mu$:printspc(7)"[211]creen [196]isplay : "sd$
  52. 12015 print" [193]re these settings what you want ([217]/[206])?"
  53. 12020 poke198,0:wait198,1:geta$
  54. 12025 ifa$<>"y"anda$<>"n"then12020
  55. 12030 ifa$="y"thenok=-1
  56. 12040 ifa$="n"thenok=0
  57. 12050 return
  58. 13000 rem  write data to disk
  59. 13010 print"[147][144]":poke53281,1:poke53280,4
  60. 13020 print"  [208]lease place side #"cs"of [204][207][193][196][211][212][193][210] in"
  61. 13025 print"     the drive and press [[211][208][193][195][197]]."
  62. 13030 poke198,0:wait198,1:geta$:ifa$<>" "then13030
  63. 13040 gosub15000: rem what side is it?
  64. 13050 ifsi=csthen13100
  65. 13060 print"   !!! [211]ide #"cs"not found... !!!"
  66. 13070 fordl=1to2000:next:goto13000
  67. 13080 :
  68. 13100 rem  ok, write data
  69. 13110 open15,8,15,"i0"
  70. 13120 d$(7)="0":ifsd=-1thend$(7)="-1"
  71. 13122 d$(6)="0":ifmu=-1thend$(6)="-1"
  72. 13130 open3,8,4,"setup":cr$=chr$(13)
  73. 13140 print#15,"p"chr$(0)"";
  74. 13150 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  75. 13160 close3:close15
  76. 13170 return
  77. 13180 :
  78. 13999 end
  79. 14000 rem  put side one back in
  80. 14010 print"[147][144]":poke53281,1:poke53280,4
  81. 14020 print"  [208]lease place side # 1 of [204][207][193][196][211][212][193][210] in"
  82. 14022 print" your drive and press [[211][208][193][195][197]] to return"
  83. 14023 print" to the [204][207][193][196][211][212][193][210] menu.":poke198,.
  84. 14030 geta$:ifa$<>" "then14030
  85. 14040 gosub15000: rem what side is it?
  86. 14050 ifsi=1then14100
  87. 14060 print"   !!! [211]ide # 1 not found... !!!"
  88. 14070 fordl=1to2000:next:goto14000
  89. 14080 :
  90. 14100 goto60000 : rem connect back
  91. 14130 :
  92. 15000 rem read current side
  93. 15010 open15,8,15,"i0":close15
  94. 15020 open2,8,2,"$"
  95. 15030 fori=0to156:get#2,a$:next
  96. 15040 get#2,a$:si=val(a$):close2
  97. 15050 return
  98. 15060 :
  99. 20000 rem quit
  100. 20010 print"[147]  [193]re you sure you want to quit ([217]/[206])?"
  101. 20020 poke198,0:wait198,1:geta$
  102. 20025 ifa$<>"y"anda$<>"n"then20020
  103. 20030 ifa$="y"then60000 : rem quit
  104. 20040 ifa$="n"thenreturn
  105. 20050 :
  106. 30000 rem same background and text
  107. 30010 poke53281,1:print"[147][144]   [215]hy did you pick the same color for"
  108. 30020 print"    the [194][193][195][203][199][210][207][213][206][196] and the [212][197][216][212]???"
  109. 30030 print"          [212]ry picking again..."
  110. 30040 fordl=1to3200:next:return
  111. 60000 rem  return to customize menu
  112. 60010 print"[147]load"chr$(34)"custom ls boot"chr$(34)",8":print"run"
  113. 60020 poke631,13:poke632,13:poke198,2:end
  114.